﻿Public Class mnuPrincipal

    Private m_frmRemision As frmNotaRemision
    Public Property frmRemisionForm() As frmNotaRemision
        Get
            Return m_frmRemision
        End Get
        Set(ByVal value As frmNotaRemision)
            m_frmRemision = value
        End Set
    End Property

    Private m_frmComprasListado As frmComprasListado
    Public Property frmComprasListadoForm() As frmComprasListado
        Get
            Return m_frmComprasListado
        End Get
        Set(ByVal value As frmComprasListado)
            m_frmComprasListado = value
        End Set
    End Property

    Private m_frmCompras As frmCompras
    Public Property frmComprasForm() As frmCompras
        Get
            Return m_frmCompras
        End Get
        Set(ByVal value As frmCompras)
            m_frmCompras = value
        End Set
    End Property

    Private m_frmUsuariosListado As frmUsuarioListado
    Public Property frmUsuariosListado() As frmUsuarioListado
        Get
            Return m_frmUsuariosListado
        End Get
        Set(ByVal value As frmUsuarioListado)
            m_frmUsuariosListado = value
        End Set
    End Property

    Private m_frmProveedoresListado As frmProveedorListado
    Public Property frmProveedoresListado() As frmProveedorListado
        Get
            Return m_frmProveedoresListado
        End Get
        Set(ByVal value As frmProveedorListado)
            m_frmProveedoresListado = value
        End Set
    End Property

    Private m_frmDeposito As frmDeposito
    Public Property frmDeposito() As frmDeposito
        Get
            Return m_frmDeposito
        End Get
        Set(ByVal value As frmDeposito)
            m_frmDeposito = value
        End Set
    End Property

    Private m_frmMarcas As frmMarca
    Public Property frmMarcas() As frmMarca
        Get
            Return m_frmMarcas
        End Get
        Set(ByVal value As frmMarca)
            m_frmMarcas = value
        End Set
    End Property

    Private m_frmRubros As frmRubro
    Public Property frmRubros() As frmRubro
        Get
            Return m_frmRubros
        End Get
        Set(ByVal value As frmRubro)
            m_frmRubros = value
        End Set
    End Property

    Private m_frmImpuestos As frmImpuesto
    Public Property frmImpuestos() As frmImpuesto
        Get
            Return m_frmImpuestos
        End Get
        Set(ByVal value As frmImpuesto)
            m_frmImpuestos = value
        End Set
    End Property

    Private m_frmMercaderiasListado As frmMercaderiaListado
    Public Property frmMercaderiasListado() As frmMercaderiaListado
        Get
            Return m_frmMercaderiasListado
        End Get
        Set(ByVal value As frmMercaderiaListado)
            m_frmMercaderiasListado = value
        End Set
    End Property

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Application.Exit()

    End Sub

    Private Sub CustomizeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomizeToolStripMenuItem.Click
        If m_frmMarcas Is Nothing Then
            m_frmMarcas = New frmMarca()
            m_frmMarcas.MdiParent = Me
            m_frmMarcas.Show()
        Else

            If Not m_frmMarcas.Visible Then
                m_frmMarcas = New frmMarca()
                m_frmMarcas.MdiParent = Me
                m_frmMarcas.Show()
            Else
                m_frmMarcas.Select()
                m_frmMarcas.Activate()
            End If

        End If
    End Sub

    Private Sub OptionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionsToolStripMenuItem.Click
        If m_frmRubros Is Nothing Then
            m_frmRubros = New frmRubro()
            m_frmRubros.MdiParent = Me
            m_frmRubros.Show()
        Else

            If Not m_frmRubros.Visible Then
                m_frmRubros = New frmRubro()
                m_frmRubros.MdiParent = Me
                m_frmRubros.Show()
            Else
                m_frmRubros.Select()
                m_frmRubros.Activate()
            End If

        End If
    End Sub

    Private Sub ImpuestosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImpuestosToolStripMenuItem.Click
        If m_frmImpuestos Is Nothing Then
            m_frmImpuestos = New frmImpuesto()
            m_frmImpuestos.MdiParent = Me
            m_frmImpuestos.Show()
        Else

            If Not m_frmImpuestos.Visible Then
                m_frmImpuestos = New frmImpuesto()
                m_frmImpuestos.MdiParent = Me
                m_frmImpuestos.Show()
            Else
                m_frmImpuestos.Select()
                m_frmImpuestos.Activate()
            End If

        End If
    End Sub

    Private Sub MercaderiasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MercaderiasToolStripMenuItem.Click

        If m_frmMercaderiasListado Is Nothing Then
            m_frmMercaderiasListado = New frmMercaderiaListado()
            m_frmMercaderiasListado.MdiParent = Me
            m_frmMercaderiasListado.Show()
        Else

            If Not m_frmMercaderiasListado.Visible Then
                m_frmMercaderiasListado = New frmMercaderiaListado()
                m_frmMercaderiasListado.MdiParent = Me
                m_frmMercaderiasListado.Show()
            Else
                m_frmMercaderiasListado.Select()
                m_frmMercaderiasListado.Activate()
            End If

        End If

    End Sub

    Private Sub DepositosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DepositosToolStripMenuItem.Click

        If m_frmDeposito Is Nothing Then
            m_frmDeposito = New frmDeposito()
            m_frmDeposito.idDeposito = 1
            m_frmDeposito.MdiParent = Me
            m_frmDeposito.Show()
        Else

            If Not m_frmDeposito.Visible Then
                m_frmDeposito = New frmDeposito()
                m_frmDeposito.MdiParent = Me
                m_frmDeposito.Show()
            Else
                m_frmDeposito.Select()
                m_frmDeposito.Activate()
            End If

        End If

    End Sub

    Private Sub ProveedoresToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProveedoresToolStripMenuItem.Click

        If m_frmProveedoresListado Is Nothing Then
            m_frmProveedoresListado = New frmProveedorListado()
            m_frmProveedoresListado.MdiParent = Me
            m_frmProveedoresListado.Show()
        Else

            If Not m_frmProveedoresListado.Visible Then
                m_frmProveedoresListado = New frmProveedorListado()
                m_frmProveedoresListado.MdiParent = Me
                m_frmProveedoresListado.Show()
            Else
                m_frmProveedoresListado.Select()
                m_frmProveedoresListado.Activate()
            End If

        End If

    End Sub

    Private Sub UsuariosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsuariosToolStripMenuItem.Click

        If m_frmUsuariosListado Is Nothing Then
            m_frmUsuariosListado = New frmUsuarioListado()
            m_frmUsuariosListado.MdiParent = Me
            m_frmUsuariosListado.Show()
        Else

            If Not m_frmUsuariosListado.Visible Then
                m_frmUsuariosListado = New frmUsuarioListado()
                m_frmUsuariosListado.MdiParent = Me
                m_frmUsuariosListado.Show()
            Else
                m_frmUsuariosListado.Select()
                m_frmUsuariosListado.Activate()
            End If

        End If

    End Sub

    Private Sub mnuPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim login As New frmLogin
        If login.ShowDialog() = Windows.Forms.DialogResult.OK Then
            toolStripMenu.Text = "Bienvenido " & oiml.UsuarioNombre
            'ControlPermisos()
        Else
            Application.Exit()

        End If

    End Sub

    Private Sub ComprasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComprasToolStripMenuItem.Click

        If frmComprasForm Is Nothing Then
            frmComprasForm = New frmCompras()
            frmComprasForm.MdiParent = Me
            frmComprasForm.Show()
        Else

            If Not frmComprasForm.Visible Then
                frmComprasForm = New frmCompras()
                frmComprasForm.MdiParent = Me
                frmComprasForm.Show()
            Else
                frmComprasForm.Select()
                frmComprasForm.Activate()
            End If

        End If

    End Sub

    Private Sub ComprasListadoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComprasListadoToolStripMenuItem.Click

        If frmComprasListadoForm Is Nothing Then
            frmComprasListadoForm = New frmComprasListado()
            frmComprasListadoForm.MdiParent = Me
            frmComprasListadoForm.Show()
        Else

            If Not frmComprasListadoForm.Visible Then
                frmComprasListadoForm = New frmComprasListado()
                frmComprasListadoForm.MdiParent = Me
                frmComprasListadoForm.Show()
            Else
                frmComprasListadoForm.Select()
                frmComprasListadoForm.Activate()
            End If

        End If

    End Sub

    Private Sub RemisionesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemisionesToolStripMenuItem.Click
        If frmRemisionForm Is Nothing Then
            frmRemisionForm = New frmNotaRemision()
            frmRemisionForm.MdiParent = Me
            frmRemisionForm.Show()
        Else

            If Not frmRemisionForm.Visible Then
                frmRemisionForm = New frmNotaRemision()
                frmRemisionForm.MdiParent = Me
                frmRemisionForm.Show()
            Else
                frmRemisionForm.Select()
                frmRemisionForm.Activate()
            End If

        End If
    End Sub

End Class